home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS222.dsk / DRIVE.YOUR.EYES.B.bas < prev    next >
BASIC Source File  |  2012-02-16  |  4KB  |  161 lines
  1. 4  HOME 
  2. 5  FOR D = 1 TO 3000: NEXT D
  3. 6  SPEED= 10
  4. 7  VTAB 12: HTAB 11: PRINT "DRIVE  YOUR  EYES"
  5. 8  FOR D = 1 TO 1000: NEXT D
  6. 9  VTAB 14: HTAB 5: PRINT "(FOR A BEGINNER READING LEVEL)"
  7. 10  FOR D = 1 TO 1500: NEXT D: HOME : SPEED= 0
  8. 12  FOR D = 1 TO 1000: NEXT D
  9. 15  PRINT : PRINT 
  10. 20  PRINT "SO YOU WANT TO TAKE YOUR"
  11. 30  PRINT 
  12. 40  PRINT "EYES OUT FOR A LITTLE DRIVE,"
  13. 50  PRINT 
  14. 60  PRINT "DO YOU ?"
  15. 70  PRINT 
  16. 80  PRINT "OKAY, WE'LL START OUT SLOWLY,"
  17. 90  PRINT 
  18. 100  PRINT "AND BUILD UP TO A FASTER SPEED"
  19. 110  PRINT 
  20. 120  PRINT "AS YOU GAIN EXPERIENCE."
  21. 130  PRINT 
  22. 140  PRINT "READY ?"
  23. 150  PRINT 
  24. 160  PRINT "START YOUR ENGINE !"
  25. 170  PRINT 
  26. 180  PRINT "OKAY, YOUR EYES ARE NOW "
  27. 190  PRINT 
  28. 200  PRINT "TRAVELLING ALONG AT A NICE, "
  29. 210  PRINT 
  30. 220  PRINT "COMFORTABLE PACE. "
  31. 230  PRINT 
  32. 240  PRINT "THIS IS AN AVERAGE SPEED OF "
  33. 250  PRINT 
  34. 260  PRINT "READING AT WHICH THE AVERAGE "
  35. 270  PRINT 
  36. 280  PRINT "AMERICAN MIGHT READ A NEWSPAPER."
  37. 290  PRINT 
  38. 300  PRINT "NOW, PUT YOUR FOOT ON THE CLUTCH, "
  39. 310  PRINT 
  40. 320  PRINT "AND GENTLY SHIFT YOUR READING "
  41. 330  PRINT 
  42. 340  PRINT "SPEED INTO SECOND GEAR. "
  43. 350  PRINT 
  44. 355  SPEED= 15
  45. 360  PRINT "RELEASE THE CLUTCH, "
  46. 370  PRINT 
  47. 380  PRINT "AND GIVE IT GAS. "
  48. 390  PRINT 
  49. 400  PRINT "AT THIS SPEED YOU SHOULD "
  50. 410  PRINT 
  51. 420  PRINT "STILL HAVE TIME TO TAKE A LOOK "
  52. 430  PRINT 
  53. 440  PRINT "AT THE SCENERY AROUND YOU. "
  54. 450  PRINT 
  55. 460  PRINT "YOUR EYES CAN DAWDLE A LITTLE "
  56. 470  PRINT 
  57. 480  PRINT "ON ANY GIVEN PHRASE, AND "
  58. 490  PRINT 
  59. 500  PRINT "FOLLOW IT UP THE SCREEN OF "
  60. 510  PRINT 
  61. 520  PRINT "THE MONITOR. "
  62. 530  PRINT 
  63. 540  PRINT "AS A MATTER OF FACT, "
  64. 550  PRINT 
  65. 560  PRINT "GO AHEAD AND ENJOY SOME DAWDLING"
  66. 570  PRINT 
  67. 580  PRINT "BY FOLLOWING THIS LINE UP TO "
  68. 590  PRINT 
  69. 600  PRINT "ABOUT HALF-WAY UP THE SCREEN. "
  70. 605  PRINT 
  71. 606  PRINT 
  72. 607  PRINT 
  73. 608  PRINT 
  74. 609  PRINT 
  75. 610  PRINT 
  76. 611  PRINT 
  77. 612  PRINT 
  78. 620  PRINT "SURE, YOU CAN QUICKLY CATCH UP "
  79. 630  PRINT 
  80. 640  PRINT "TO THE SENTENCES COMING UP AT YOU "
  81. 650  PRINT 
  82. 660  PRINT "FROM THE BOTTOM OF THE MONITOR."
  83. 670  PRINT 
  84. 680  PRINT "BUT NOW, WHEN YOU PUT IN THE "
  85. 690  PRINT 
  86. 700  PRINT "CLUTCH A SECOND TIME, "
  87. 710  PRINT 
  88. 720  PRINT "AND SHIFT TO THIRD GEAR, "
  89. 730  PRINT 
  90. 740  PRINT "THE ACTION SPEEDS UP. "
  91. 745  SPEED= 30
  92. 750  PRINT 
  93. 760  PRINT "YES, NOW YOU'LL HAVE TO CONCENTRATE "
  94. 770  PRINT 
  95. 780  PRINT "JUST A LITTLE BIT MORE. "
  96. 790  PRINT 
  97. 800  PRINT "BUT HEY, ISN'T THERE A SLIGHT "
  98. 810  PRINT 
  99. 820  PRINT "THRILL IN BEING ABLE TO DRIVE "
  100. 830  PRINT 
  101. 840  PRINT "IN THIRD GEAR ? "
  102. 850  PRINT 
  103. 860  PRINT "SURE THOSE YELLOW LINES ARE "
  104. 870  PRINT 
  105. 880  PRINT "COMING AT YOU FAST, "
  106. 890  PRINT 
  107. 900  PRINT "BUT YOU'RE IN FULL CONTROL "
  108. 910  PRINT 
  109. 920  PRINT "OF THE CAR.        "
  110. 930  PRINT 
  111. 940  PRINT "FEELING A LITTLE LIKE SEEING "
  112. 950  PRINT 
  113. 960  PRINT "WHAT THIS CAR CAN DO ? "
  114. 970  PRINT 
  115. 980  PRINT "CURIOUS TO SEE WHAT HAPPENS "
  116. 990  PRINT 
  117. 1000  PRINT "WHEN THE PEDAL HITS THE FLOOR ? "
  118. 1010  PRINT 
  119. 1020  PRINT "PUSH IN THE CLUTCH, "
  120. 1030  PRINT 
  121. 1035  SPEED= 45
  122. 1040  PRINT "AND HANG ON FOR FOURTH GEAR. "
  123. 1050  PRINT 
  124. 1060  PRINT "IF YOU OPEN THE WINDOW NOW, "
  125. 1070  PRINT 
  126. 1080  PRINT "YOU'LL SURE FEEL THE WIND JUST "
  127. 1090  PRINT 
  128. 1100  PRINT "BLOWIN' THROUGH YOUR HAIR. "
  129. 1110  PRINT 
  130. 1120  PRINT "IT SURE SEEMS DIZZYINGLY FAST "
  131. 1130  PRINT 
  132. 1140  PRINT "AT FIRST.       "
  133. 1150  PRINT 
  134. 1160  PRINT "BUT YOU GET USED TO IT. "
  135. 1170  PRINT 
  136. 1180  PRINT "AND IN NO TIME AT ALL "
  137. 1190  PRINT 
  138. 1200  PRINT "ANY SPEED SLOWER THAN THIS "
  139. 1210  PRINT 
  140. 1220  PRINT "WILL SEEM LIKE A SNAIL'S PACE."
  141. 1230  PRINT 
  142. 1240  PRINT "                    "
  143. 1250  PRINT 
  144. 1260  PRINT "WHICH ALL GOES TO SHOW "
  145. 1270  PRINT 
  146. 1280  PRINT "THAT DRIVING A CAR IS "
  147. 1290  PRINT 
  148. 1300  PRINT "A LOT LIKE READING A SENTENCE. "
  149. 1310  PRINT 
  150. 1320  PRINT "THE MORE PRACTICE YOU GET, "
  151. 1330  PRINT 
  152. 1340  PRINT "AND THE MORE CONFIDENCE YOU DEVELOP, "
  153. 1350  PRINT 
  154. 1360  PRINT "THE FASTER YOU'LL BE ABLE TO "
  155. 1370  PRINT 
  156. 1380  PRINT "GO.             "
  157. 1390  PRINT 
  158. 1400  FOR D = 1 TO 1500: NEXT D
  159. 1405  PRINT : PRINT 
  160. 1410  PRINT " (C) COPYRIGHT 1986     PHIL SHAPIRO"
  161. 1420  END